home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Topik / Topik - Disk 39 - Educational (19xx)(Topik Public Domain)(PD)[a][WB].zip / Topik - Disk 39 - Educational (19xx)(Topik Public Domain)(PD)[a][WB].adf / SouthAsia / Pronounce (.txt) < prev    next >
AmigaBASIC Source Code  |  1978-05-25  |  451b  |  21 lines
  1.  
  2. ' GOSUB SayHow
  3. Begin:
  4.  INPUT "Type in your word->",word$
  5.  code$=TRANSLATE$ (word$)
  6.  PRINT code$
  7.  SAY TRANSLATE$ (word$)
  8. Again:
  9.  INPUT "Type in your code-> ",c$
  10. ' c$="BYUH0TAE4N"
  11.  SAY c$  ',How%
  12.  SAY TRANSLATE$ ("AGAIN")
  13.  SAY c$ ', How%
  14.  INPUT "New word (N) Again (A)";w$
  15.  IF w$= "N" GOTO Begin
  16.  IF w$= "A" GOTO Again
  17. SayHow:
  18.  FOR j=0 TO 8: READ How%(j):NEXT j
  19.  RETURN
  20. DATA 110,0,250,0,22200,64,10,0,0
  21.